home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / amicomsys / amicomsysmui.lha / AmiComSys / Install-images < prev    next >
Text File  |  1998-08-23  |  2KB  |  51 lines
  1. ; Install script for images for AmiComSys 1.20+
  2. ;
  3. ; $VER: AmiComSys-image-install 1.0 (23.08.98) Håkan Parting
  4.  
  5. (set #selimages "Do you want to use the NewIcons graphics-buttons\nor the MagicWB-graphics-buttons?")
  6. (set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.")
  7.  
  8.  
  9. (message
  10.      "Welcome to the AmiComSys image installer!\n\n"
  11.     "This will install one of the graphics sets.\n"
  12.     "NOTE: The installer for AmiComSys does that\n"
  13.     "automatically. But if you want to switch to\n"
  14.     "another use this script.\n"
  15.     "AmiComSys © Håkan Parting 1997-1998\n"
  16.     "Requires:\n"
  17.     "AmiComSys 1.20+ installed\n"
  18. )
  19.  
  20. (message
  21.     "\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation."
  22. )
  23.  
  24. (set DefDir (getassign "AMICOMSYS"))
  25. (if (= DefDir "") (set DefDir (getassign "MIAMI")) )
  26. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  27. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  28.  
  29. (set #target (askdir    (prompt "Please locate your AmiComSys directory.\nThat's the directory with the Images directory.")
  30.     (help "")
  31.     (default DefDir)
  32. ))
  33.  
  34. (set instdir #target)
  35. (set @default-dest instdir)
  36.  
  37. (if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )
  38.  
  39. ; copy over files
  40.  
  41. (set imag (askchoice (choices "NewIcons" "MagicWB" "I've installed a replacement gfx-set")
  42.                     (prompt #selimages)
  43.                     (help #selimageshelp)
  44.                     (default 1)
  45. ))
  46.  
  47. (if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
  48. (if (= imag 1) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
  49. (if (= imag 2) (message "Okey why did you run this script anyway :)"))
  50.  
  51.